home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / GRAPHICS / TOOLS / TGDN / Textures / FFT_1D / RandRipp < prev    next >
Text File  |  1996-11-11  |  716b  |  33 lines
  1. StartColourDefinition
  2.   Seed(&A13B)
  3.   Dithering(&0)
  4.   DitheringOne(&0)
  5.   DitheringTwo(&2000)
  6.   NoiseToBeFiltered(&C215)
  7.   LinearField(&30E,&9894)
  8.   OneDimensionalStoreBufferTwo
  9.   LinearField(&EC7F,&CC9F)
  10.   OneDimensionalStoreBufferOne
  11.   LinearField(&EEA5,&811A)
  12.   CreateColours(HSV)
  13. EndColourDefinition
  14.  
  15. Seed(&B11)
  16. Phase(&2C)
  17. TwoDimensionalClear
  18. LinearField(&FFFF,&0)
  19. OneDimensionalStoreBufferOne
  20. CreateOneDimensionalFilter(QuickNoise(&F52D,&50B3))
  21. SmoothOneDimensionalTransform
  22. OneDimensionalMaskBufferOne(ScaledMultiplication)
  23. For(&20)
  24.   AddToPercentage(&3)
  25.   Ripples(&FFFF,&4000,Random(&FFFF,&0),Random(&CFFF,&0),UnboundedAddition)
  26. Next
  27. TwoDimensionalEqualization
  28. Dithering(&2000)
  29. MakeSprite
  30. Checksum(&BC7B)
  31. End
  32.  
  33.